home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / Pascal / Libraries / WASTE 1.1a4 / Interfaces 2 / ExternQD.p < prev    next >
Encoding:
Text File  |  1994-02-02  |  650 b   |  34 lines  |  [TEXT/PJMM]
  1. unit ExternQD;
  2.  
  3. { The easy way to get QuickDraw globals from a code resource }
  4.  
  5. interface
  6.  
  7.     type
  8.  
  9.         QDGlobals = record
  10.                 randSeed: LongInt;
  11.                 screenBits: BitMap;
  12.                 arrow: Cursor;
  13.                 dkGray: Pattern;
  14.                 ltGray: Pattern;
  15.                 gray: Pattern;
  16.                 black: Pattern;
  17.                 white: Pattern;
  18.                 thePort: GrafPtr;
  19.             end;  { QDGlobals }
  20.         QDPtr = ^QDGlobals;
  21.  
  22.     const
  23.  
  24.         QDGlobalsSize = SizeOf(QDGlobals);
  25.         QDGlobalsOffset = -QDGlobalsSize + SizeOf(GrafPtr);
  26.  
  27.     function GetQDGlobals: QDPtr;
  28.     inline
  29.         $2055,                                        { movea.l (a5), a0 }
  30.         $41E8, QDGlobalsOffset,            { lea QDGlobalsOffset(a0), a0 }
  31.         $2E88;                                        { move.l a0, (sp) }
  32.  
  33. implementation
  34. end.